gusucode.com > 酷维企业网站CMS管理系统 v2.1.0 > 酷维企业网站CMS管理系统 v2.1.0\code\NewsAdmin\main.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim theInstalledObjects(24)
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(16) = "JMail.SmtpMail"
theInstalledObjects(17) = "CDONTS.NewMail"
theInstalledObjects(18) = "Persits.MailSender"
theInstalledObjects(19) = "SMTPsvg.Mailer"
theInstalledObjects(20) = "DkQmail.Qmail"
theInstalledObjects(21) = "Geocel.Mailer"
theInstalledObjects(22) = "IISmail.Iismail.1"
'检查组件是否被支持
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
'检查组件版本
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
color: #003399;
}
a {
font-size: 12px;
color: #003399;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #003399;
}
a:hover {
text-decoration: underline;
color: #FF0000;
}
a:active {
text-decoration: none;
}
.STYLE1 {
color: #FFFFFF;
font-weight: bold;
}
.style11 {color: #FF0000}
-->
</style></head>
<body>
<table width="90%" height="293" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" class="tableBorder">
<tr>
<td colspan="2" align="center" background="images/admin_bg_1.gif" height="30"><b><font color="#ffffff">服务器信息统计</font></b></td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="50%" height="29" bgcolor="#ECF9FF"> 服务器类型：<font face="Verdana"><%=Request.ServerVariables("OS")%> （IP：</font><%=Request.ServerVariables("LOCAL_ADDR")%>）</td>
<td width="50%" bgcolor="#ECF9FF">
<%
Response.Write theInstalledObjects(9)
If Not IsObjInstalled(theInstalledObjects(9)) Then
Response.Write "<font color=red><b> ×</b></font>"
Else
Response.Write getver(theInstalledObjects(9)) & "<font color=#888888>(FSO 文本文件读写)</b><font color=green><b> √</b></font> "
End If
Response.Write vbCrLf
%></td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="50%" height="29" bgcolor="#ECF9FF"> 返回服务器的主机名、DNS别名或IP地址：<%=Request.ServerVariables("SERVER_NAME")%></td>
<td width="50%" bgcolor="#ECF9FF">
<%
Response.Write theInstalledObjects(10)
Response.Write "<font color=#888888>(ACCESS 数据库)</font>"
If Not IsObjInstalled(theInstalledObjects(10)) Then
Response.Write "<font color=red><b> ×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(10))
End If
Response.Write vbCrLf
%></td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="50%" height="29" bgcolor="#ECF9FF"> 脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
<td width="50%" bgcolor="#ECF9FF">
<%
Response.Write theInstalledObjects(16)
Response.Write "<font color=#888888>(w3 Jmail 收发信)</font>"
If Not IsObjInstalled(theInstalledObjects(16)) Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(16))
End If
Response.Write vbCrLf
%></td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="50%" height="29" bgcolor="#ECF9FF"> 脚本超时时间：<%=Server.ScriptTimeout%> 秒</td>
<td width="50%" bgcolor="#ECF9FF">
<%
Response.Write theInstalledObjects(17)
Response.Write "<font color=#888888>(WIN虚拟SMTP 发信)</font>"
If Not IsObjInstalled(theInstalledObjects(17)) Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(17))
End If
Response.Write vbCrLf
%></td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="50%" height="29" bgcolor="#ECF9FF"> 服务器端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
<td width="50%" bgcolor="#ECF9FF">
<%
Response.Write theInstalledObjects(18)
Response.Write "<font color=#888888>(ASPemail 发信)</font>"
If Not IsObjInstalled(theInstalledObjects(18)) Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(18))
End If
Response.Write vbCrLf
%></td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="50%" height="29" bgcolor="#ECF9FF"> 站点物理路径：<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
<td width="50%" bgcolor="#ECF9FF">
<%
Response.Write theInstalledObjects(19)
Response.Write "<font color=#888888>(ASPemail 发信)</font>"
If Not IsObjInstalled(theInstalledObjects(19)) Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(19))
End If
Response.Write vbCrLf
%></td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="50%" height="29" bgcolor="#ECF9FF"> 服务器IIS版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
<td width="50%" bgcolor="#ECF9FF">
<%
Response.Write theInstalledObjects(20)
Response.Write "<font color=#888888>(dkQmail 发信)</font>"
If Not IsObjInstalled(theInstalledObjects(20)) Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(20))
End If
Response.Write vbCrLf
%></td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="50%" height="29" bgcolor="#ECF9FF"> 服务器CPU个数：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
<td width="50%" bgcolor="#ECF9FF">
<%
Response.Write theInstalledObjects(21)
Response.Write "<font color=#888888>(Geocel 发信)</font>"
If Not IsObjInstalled(theInstalledObjects(21)) Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(21))
End If
Response.Write vbCrLf
%></td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="50%" height="30" bgcolor="#ECF9FF"> 服务器时间：<%=now%></td>
<td width="50%" bgcolor="#ECF9FF">
<%
Response.Write theInstalledObjects(22)
Response.Write "<font color=#888888>(IISemail 发信)</font>"
If Not IsObjInstalled(theInstalledObjects(22)) Then
Response.Write " <font color=red><b>×</b></font>"
Else
Response.Write " <font color=green><b>√</b></font> " & getver(theInstalledObjects(22))
End If
Response.Write vbCrLf
%>
</td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td height="29" align="center" background="images/admin_bg_1.gif"><span class="STYLE1">版 权 信 息</span></td>
</tr>
<tr>
<td height="45" align="center" bgcolor="#ECF9FF"><!--#include file="boom.asp" --></td>
</tr>
</table>
</body>
</html>